home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
The World of Computer Software.iso
/
spectr20.zip
/
SPECTRUM.FI
< prev
next >
Wrap
Text File
|
1992-04-22
|
2KB
|
87 lines
* SPECTRUM.FI
* Interface statements for SPECTRUM V 2.0.
* David E. Hess
* Fluid Flow Group - Process Measurements Division
* Chemical Science and Technology Laboratory
* National Institute of Standards and Technology
* April 15, 1992
INTERFACE TO FUNCTION TRANS_ONE_CHAN (NDATA,FR,FI,B)
INTEGER*2 TRANS_ONE_CHAN
INTEGER*2 NDATA[HUGE](*)
REAL*4 FR[HUGE](*)
REAL*4 FI[HUGE](*)
REAL*4 B(*)
END
INTERFACE TO FUNCTION
+ TRANS_TWO_CHAN (NDATA,FR,FI,FR2,FI2,WIN,B,B2)
INTEGER*2 TRANS_TWO_CHAN
INTEGER*2 NDATA[HUGE](*)
REAL*4 FR[HUGE](*)
REAL*4 FI[HUGE](*)
REAL*4 FR2[HUGE](*)
REAL*4 FI2[HUGE](*)
REAL*4 WIN[HUGE](*)
REAL*4 B(*),B2(*)
END
INTERFACE TO FUNCTION WIN_SCALE (WIN)
INTEGER*2 WIN_SCALE
REAL*4 WIN[HUGE](*)
END
INTERFACE TO FUNCTION TAPER_DATA (FR,FR2,FI,FI2,WIN)
INTEGER*2 TAPER_DATA
REAL*4 FR[HUGE](*)
REAL*4 FI[HUGE](*)
REAL*4 FR2[HUGE](*)
REAL*4 FI2[HUGE](*)
REAL*4 WIN[HUGE](*)
END
INTERFACE TO FUNCTION SPEC_ONE_CHAN (FR,FI,FR2,FI2)
INTEGER*2 SPEC_ONE_CHAN
REAL*4 FR[HUGE](*)
REAL*4 FI[HUGE](*)
REAL*4 FR2[HUGE](*)
REAL*4 FI2[HUGE](*)
END
INTERFACE TO FUNCTION SPEC_TWO_CHAN (FR,FI,FR2,FI2,WIN)
INTEGER*2 SPEC_TWO_CHAN
REAL*4 FR[HUGE](*)
REAL*4 FI[HUGE](*)
REAL*4 FR2[HUGE](*)
REAL*4 FI2[HUGE](*)
REAL*4 WIN[HUGE](*)
END
INTERFACE TO SUBROUTINE FFT (FR,FI,K)
REAL*4 FR[HUGE](*)
REAL*4 FI[HUGE](*)
INTEGER*4 K
END
INTERFACE TO SUBROUTINE DTRD (FR,N,DELT)
REAL*4 FR[HUGE](*)
REAL*4 DELT
INTEGER*4 N
END
INTERFACE TO SUBROUTINE FILTER (FTYPE,FC,F1,F2,NS,DELT,N,FR)
REAL*4 FR[HUGE](*)
REAL*4 FC,F1,F2,DELT
INTEGER*2 NS
INTEGER*4 N
CHARACTER*1 FTYPE
END
INTERFACE TO FUNCTION ADDSUM (Y,N)
REAL*4 ADDSUM
REAL*4 Y[HUGE](*)
INTEGER*4 N
END